5 PRINT"[147]":POKE53280,0:POKE53281,6:POKE646,7
7 REM
8 REM DISABLE RUN/STOP AND RESTORE
9 REM
10 POKE 792,193:POKE 808,239:POKE 657,128
20 DIM V$(23)
27 REM
28 REM SET V$() TO ROW NUMBERS
29 REM
30 V$(0)="":FOR I=1 TO 23:V$(I)=V$(I-1)+"":NEXT
37 REM
38 REM SET OLD AND NEW COLOR LOCATIONS AND COLOR STRINGS
40 NP=2:XP=0:XC$="[158],,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"
41 HC$=""+RIGHT$(XC$,39)
47 REM
48 REM PRINT THE MENU
49 REM
50 CR$=CHR$(13):PRINT "[147]          CHOOSE YOUR SANDWICH"
51 PRINT "     F5=UP   F7=DOWN   SPACE=CHOICE"
52 PRINT CR$"***********************"CR$"*                     *"
53 PRINT "*  ROAST BEEF         *"CR$"*  CORNED BEEF        *"
54 PRINT "*  SHAVED HAM         *"CR$"*  PASTRAMI           *"
55 PRINT "*  TURKEY & SALAMI    *"CR$"*                     *"
56 PRINT "***********************"CR$CR$CR$CR$CR$CR$
57 PRINT "         PRESS RUN/STOP[146] TO QUIT";
60 GOSUB 900:XP=NP
97 REM
98 REM READ KEYBOARD
99 REM
100 A=PEEK(197):IF A=64 THEN 100
107 REM
108 REM QUIT?
109 REM
110 IF A=63 THEN 800
117 REM
118 REM CHOICE MADE?
119 REM
120 IF A=60 THEN GOSUB 200:GOTO 100
127 REM
128 REM MOVE UP?
129 REM
130 IF A=6 THEN NP=NP-1:IF NP<0 THEN NP=4
137 REM
138 REM MOVE DOWN?
139 REM
140 IF A=3 THEN NP=NP+1:IF NP>4 THEN NP=0
147 REM
148 REM IF MOVE, GO DO IT
149 REM
150 IF NP<>XP THEN GOSUB 900:XP=NP
160 POKE 197,64:GOTO 100
200 IF PEEK(197)<>64 THEN 200
207 REM
208 REM CLEAR OLD CHOICE
209 REM
210 PRINT "YOU CHOSE:"CR$"                         [145]"
217 REM
218 REM JUMP TABLE
219 REM
220 ON NP+1 GOTO 300,400,500,600,700
300 PRINT "ROAST BEEF ON WHEAT":RETURN
400 PRINT "CORNED BEEF ON RYE":RETURN
500 PRINT "SHAVED HAM ON A CROISSANT":RETURN
600 PRINT "PASTRAMI ON TOAST":RETURN
700 PRINT "TURKEY & SALAMI ON ROLL":RETURN
797 REM
798 REM RESTORE AND END
799 REM
800 IF PEEK(197)<>64 THEN 800
810 PRINT "[147]":POKE 792,71:POKE 808,237:POKE 657,0:POKE 198,0:END
897 REM
898 REM PRINT COLORS USING FALSE SCREEN MEMORY
900 POKE 648,60:PRINT V$(NP+5)HC$V$(XP+5)XC$:POKE 648,4:RETURN